home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Tutorials / Guided Tour Mac II / D2 / D2.rsrc / TEXT_1153.txt < prev    next >
Encoding:
Text File  |  1988-03-04  |  270 b   |  11 lines
  1. #macro to detect icon drag
  2. SET &H = MOUSEH
  3. SET &V = MOUSEV
  4. IF NOT STILLDOWN THEN EXIT
  5. IF ABS(MOUSEH-&H) > 3 THEN SKIP 3
  6. IF ABS(MOUSEV-&V) > 3 THEN SKIP 2
  7. SKIP -3
  8. SET SPRITEID[11] = F35
  9. SET SPRITEH[11] = MOUSEH
  10. SET SPRITEV[11] = MOUSEV
  11. WHEN MOUSEUP THEN CALL C14Àá√ì